Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/scary/scary2.frm

Text File | 1995-05-08 | 5KB | 194 lines

VERSION 2.00
Begin Form scary2
   BackColor       =   &H00404040&
   Caption         =   "Scary Time Help"
   ClientHeight    =   3915
   ClientLeft      =   1530
   ClientTop       =   1350
   ClientWidth     =   6810
   FontBold        =   -1  'True
   FontItalic      =   0   'False
   FontName        =   "Futura Md BT"
   FontSize        =   12
   FontStrikethru  =   0   'False
   FontUnderline   =   0   'False
   ForeColor       =   &H000000C0&
   Height          =   4320
   Left            =   1470
   LinkMode        =   1  'Source
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3915
   ScaleWidth      =   6810
   Top             =   1005
   Width           =   6930
   Begin CommandButton Command1
      BackColor       =   &H000040C0&
      Caption         =   "Return to Scary Time"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Futura Md BT"
      FontSize        =   14.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   495
      Left            =   480
      TabIndex        =   1
      Top             =   3240
      Width           =   6015
   End
   Begin TextBox Text1
      BackColor       =   &H00404040&
      BorderStyle     =   0  'None
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Futura Md BT"
      FontSize        =   20.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H000000C0&
      Height          =   525
      Left            =   960
      MultiLine       =   -1  'True
      TabIndex        =   0
      Text            =   "Scary Time Help Topics"
      Top             =   120
      Width           =   5415
   End
   Begin Label Label4
      Alignment       =   2  'Center
      BackColor       =   &H00404040&
      Caption         =   "Finding the menu bar!"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Futura Md BT"
      FontSize        =   12
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H000000C0&
      Height          =   495
      Left            =   3360
      TabIndex        =   5
      Top             =   2640
      Width           =   2895
   End
   Begin Label Label3
      Alignment       =   2  'Center
      BackColor       =   &H00404040&
      Caption         =   "What's the time ?"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Futura Md BT"
      FontSize        =   12
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H000000C0&
      Height          =   495
      Left            =   2160
      TabIndex        =   4
      Top             =   2040
      Width           =   2895
   End
   Begin Label Label2
      Alignment       =   2  'Center
      BackColor       =   &H00404040&
      Caption         =   "Setting The clock."
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Futura Md BT"
      FontSize        =   12
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H000000C0&
      Height          =   495
      Left            =   1200
      TabIndex        =   3
      Top             =   1440
      Width           =   2895
   End
   Begin Label Label1
      Alignment       =   2  'Center
      BackColor       =   &H00404040&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "About This Program."
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Futura Md BT"
      FontSize        =   12
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H000000C0&
      Height          =   375
      Left            =   600
      TabIndex        =   2
      Top             =   840
      Width           =   2895
   End
End

Sub About ()
Msg$ = "Scary Time  was created by Dan Zeitman.  It's a really simple program, designed to help you remember what the phone number to time is and allows you to set the computer's clock."
Title$ = " About Scary Time! "
MsgBox Msg$, 1, Title$
End Sub

Sub Command1_Click ()
scary2.Hide
form1.Show







End Sub

Sub FindBar ()

Msg$ = "Click in the top edge of the window to the display Options and Help Menu."
Title$ = " How to Select the menu Bar! "
MsgBox Msg$, 1, Title$

End Sub



Sub Label1_Click ()
About
End Sub

Sub Label2_Click ()
SetClock
End Sub

Sub Label3_Click ()
WhatTime
End Sub

Sub Label4_Click ()
FindBar
End Sub

Sub SetClock ()
Msg$ = " Setting the clock involves calling up the control pannel, and selecting the Time and Date Icon. Doing so will allow you to change the computer's clock."
Title$ = " About Setting the Clock ! "
MsgBox Msg$, 1, Title$
End Sub


Sub Text1_Change ()
End

End Sub

Sub WhatTime ()

Msg$ = " Selecting this option will display the phone number to dial for Time."
Title$ = " How to Call for the correct Time! "
MsgBox Msg$, 1, Title$

End Sub